* lisp/descr-text.el (describe-char-unicode-data): Fix copy/paste errors.

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 528820876ec168dfc96b7664d1ba7039ef2384df..6c7983a1771208938aa76426f46ce5c073c93159 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -277,12 +277,12 @@ This function is semi-obsolete.  Use `get-char-code-property'."
                            'general-category (intern val))
                           val)))
               (list "Combining class"
-                    (let ((val (nth 1 fields)))
+                    (let ((val (nth 2 fields)))
                       (or (char-code-property-description
                            'canonical-combining-class (intern val))
                           val)))
               (list "Bidi category"
-                    (let ((val (nth 1 fields)))
+                    (let ((val (nth 3 fields)))
                       (or (char-code-property-description
                            'bidi-class (intern val))
                           val)))